home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / othernet / mausnet / cat303 / scripts / connect / conmaus.scr next >
Text File  |  1993-02-03  |  8KB  |  309 lines
  1. Username='Dirk Johannwerner'               # Username
  2. Passwort='isfalsch';                       # Passwort
  3. Sendfile=\''f:\cat\export\infile.txt'\';   # Pfad/Datei des Infiles
  4. Recepath=\''f:\cat\import\'\';             # Pfad fr das Outfile
  5. Mausname='Maus K”ln';                      # Hier die Heimatmaus eintragen
  6. Repeat=0;                                  # 0 bedeutet bis zur Stromausfall
  7.                                            # >0 max. Anzahl der W„hlversuche
  8.  
  9. #                                 ACHTUNG!
  10. #
  11. # Ab hier bitte nichts mehr „ndern! Andernfalls kann das FšRCHTERLICH
  12. # in die Hose gehen und mit Datenverlust etc. enden!
  13. #
  14. # Fr Sch„den, die aus der Benutzung des Scripts entstehen, wird
  15. # KEINE Haftung bernommen.
  16. #
  17. #
  18. # M”gliche Parameter:
  19. #
  20. # Wird der Script ohne Parameter gestartet, so wird die oben angegebene
  21. # MAUS angew„hlt, eventuell vorhandene Programme im pers”nlichen Programm-
  22. # teil downgeloadet, der automatische Maustausch gestartet und eine Liste
  23. # der neuen Programme im ”ffentlichen Programmteil angefordert. Danach
  24. # legt das Modem auf.
  25. #
  26. # Wird der Script mit dem Parameter "online" als erstem Parameter gestartet,
  27. # so wird nach dem Empfangen der Programmliste nicht aufgelegt, sondern man
  28. # bleibt Online in der MAUS. Beliebige andere Worte als erster Parameter
  29. # sorgen fr ein direktes Auflegen nach dem Empfangen der Programmliste.
  30. #
  31. # Als zweiter Parameter kann zus„tzlich "Nodial" angegeben werden. Geschieht
  32. # dies, so wird nicht gew„hlt, sondern direkt ein LOGIN versucht. Das ist
  33. # sinnvoll, wenn man z.B. mehrere M„use anw„hlen m”chte. Man kann dann im
  34. # Wahldialog als Script "<Scriptname> online Nodial" angeben, so daž dieser
  35. # Script automatisch nach dem Connect gestartet wird. Dabei muž natrlich
  36. # fr jede MAUS ein eigener Script mit den passenden Pfaden vorliegen!
  37. # Dieser Parameter muž UNBEDINGT als zweiter Parameter angegeben werden,
  38. # wenn diese Funktion aktiviert werden soll.
  39. #
  40. # K”ln, 31. Januar 1993 - 20.33 Uhr 3. Nicht-ž-Release
  41.  
  42.  
  43. # -------------------------------------------------------
  44. #           Unterroutinen fr den Maustausch
  45. # -------------------------------------------------------
  46.  
  47.  
  48. function nologin {
  49.   echo \033"[4;1mFehler:"\033"[0m"
  50.   echo "Im Moment erscheint die Maus nicht gewillt, uns"
  51.   echo "Einlaž zu gew„hren."
  52.   hangup
  53.   break -1
  54. }
  55.  
  56. function schlaeft {
  57.   echo \033"[4;1mFehler:"\033"[0m"
  58.   echo "Im Moment erscheint die Maus nicht gewillt, aus"
  59.   echo "Ihrem Schlaf zu erwachen und unsere Befehle zu befolgen."
  60.   hangup
  61.   break -1
  62. }
  63.  
  64. function loginerror {
  65.   echo \033"[4;1mFehler:"\033"[0m"
  66.   echo "Im Moment erscheint die Maus nicht gewillt, von uns"
  67.   echo "Namen und Passwort zu erfragen."
  68.   hangup
  69.   break -1
  70. }
  71.  
  72.  
  73. function noconnect {
  74.   echo \033"[4;1mFehler:"\033"[0m"
  75.   echo "Im Moment erscheint die Maus nicht gewillt, ihre"
  76.   echo "Amtleitung fr uns frei zu machen."
  77.   break -1
  78. }
  79.  
  80. function screen {
  81.   echo -n \33"[2J"\33"[H"
  82.   echo "----------------------------------------------------------"
  83.   echo \33"[4;1m Maus - Tausch "\33"#3"
  84.   echo \33"#4 Maus - Tausch"\33"[0m "
  85.   echo \33"#6                 mit CoNnect"
  86.   echo "                                     von Wolfgang Wander"
  87.   echo "Script berarbeitet von:                 Dirk Johannwerner"
  88.   echo "----------------------------------------------------------"
  89. }
  90.  
  91. function mauswait {
  92.   mausdone=0
  93.   while [ $mausdone = 0 ] ; do
  94.     if ! waitfor -t 30 'Leertaste' $1 $2 $3; then
  95.       schlaeft
  96.     fi
  97.     if [ $WAITID = 1 ]; then
  98.       send -n ' '
  99.     else
  100.       mausdone=1
  101.     fi
  102.   done
  103. }
  104.  
  105.  
  106. function persdownload {
  107.   echo \033"[4;1mPers”nliche Bin„rdateien downloaden"\033"[0m"
  108.   send -n 'p'
  109.   mauswait 'Programme'
  110.  
  111.   send -n 'p'
  112.   mauswait 'Programme'
  113.  
  114.   send -n 'e'
  115.   mauswait ':'
  116.  
  117.   send '*.*'
  118.  
  119.   persdone=0
  120.   while [ $persdone = 0 ]; do
  121.     mauswait 'Protokoll' 'nun'
  122.     if [ $WAITID = 2 ]; then
  123.       persdone=1
  124.     else
  125.       send -n u
  126.     fi
  127.   done
  128.   send -n 'z'
  129.   waitfor 'B0'
  130.   download -p $Recepath
  131.  
  132.   mauswait 'Programme'
  133.  
  134.   send -n 'l'
  135.   mauswait 'Dienst'
  136.  
  137.   send -n 'n'
  138.   mauswait 'werden'
  139.  
  140.   send '*.*'
  141.   persdone=0
  142.   while [ $persdone = 0 ]; do
  143.     mauswait 'Programme:' '”schen:' 'durchgehen?'
  144.     if [ $WAITID = 2 ]; then
  145.       persdone=1
  146.     fi
  147.     if [ $WAITID = 3 ]; then
  148.       send -n j
  149.     fi
  150.     if [ $WAITID = 4 ]; then
  151.       send -n n
  152.     fi
  153.     done
  154.  
  155.   send -n 'z'
  156.   mauswait 'Hauptmen'
  157. }
  158.  
  159. function neuedateien {
  160.   echo \033"[4;1mListe der neuen Files downloaden (ungepackt)"\033"[0m"
  161.   send -n 'p'
  162.   mauswait 'Programme'
  163.  
  164.   send -n 'a'
  165.   mauswait 'Eingabe'
  166.  
  167.   send -n 'n'
  168.   mauswait 'Eingabe'
  169.  
  170.   send -n 'o'
  171.   mauswait 'Packer'
  172.   send -n 'k'
  173.   mauswait 'Protokol'
  174.   send -n 'z'
  175.   WAITID=0
  176.   neueliste=0
  177.   waitfor 'B0' 'Programme...' 'Files'
  178.   if [ $WAITID = 1 ]; then
  179.      download -p $Recepath
  180.      neueliste=1
  181.   fi
  182.   mauswait 'Programme'
  183.   send -n 'z'
  184.   mauswait 'Hauptmen'
  185. }
  186.  
  187.  
  188. # ========================================================
  189. #   Hier beginnt das Script fr den CONNECT - Maustausch
  190. # ========================================================
  191.  
  192. ctty vt102 vt102id
  193.  
  194. screen
  195.  
  196. if test "$2" != "Nodial"; then
  197.  
  198.   echo "                                                  "
  199.   echo ".................... Anwahl ......................"
  200.   echo "                                                  "
  201.  
  202.   if ! dial -v -r $Repeat "$Mausname"; then
  203.     noconnect
  204.   fi
  205.  
  206. fi
  207.  
  208. echo "Wir haben eine Verbindung zu $Mausname."
  209.  
  210.  
  211. echo "                                                  "
  212. echo "................ Login-Prozedur .................."
  213. echo "                                                  "
  214.  
  215. if ! waitfor -t 10s '(J/N)'; then
  216.   nologin
  217. fi
  218.  
  219. sleep 200m; send -n 'j'
  220.  
  221. if ! waitfor -t 30 'Name      :'; then
  222.    loginerror
  223. fi
  224.  
  225. sleep 50m;  send "$Username"
  226.  
  227. if ! waitfor -t 30 'Password  :'; then
  228.    loginerror
  229. fi
  230.  
  231. sleep 50m;  send "$Passwort"
  232.  
  233. done=0
  234. persoenliche=0
  235.  
  236. # --------------------------------------------------------
  237. #   Schleife, in der geprft wird, ob pers”nliche
  238. #    Bin„rdateien angekommen sind.
  239. # --------------------------------------------------------
  240.  
  241. while [ $done = 0 ]; do
  242.   if ! waitfor -t 30 'finden' 'Hauptmen' 'Leertaste'; then
  243.     schlaeft
  244.   fi
  245.   if [ $WAITID = 1 ] ; then
  246.     persoenliche=1
  247.   fi
  248.   if [ $WAITID = 2 ] ; then
  249.     done=1
  250.   fi
  251.   if [ $WAITID = 3 ] ; then
  252.     send -n ' '
  253.   fi
  254. done
  255.  
  256. if [ $persoenliche = 1 ]; then
  257.   persdownload;
  258. fi
  259.  
  260. send 't'
  261.  
  262. sleep 900m
  263. send -n 'z'
  264.  
  265. if ! waitfor -i -t 30 'protokoll startet'; then
  266.   schlaeft
  267. fi
  268.  
  269. if ! upload $Sendfile; then
  270.   uploadfehler
  271. fi
  272.  
  273. if ! waitfor -i -t 600 'protokoll startet'; then
  274.   schlaeft
  275. fi
  276.  
  277. if ! download -p $Recepath; then
  278.   downloadfehler
  279.   exit 1
  280. fi
  281.  
  282. mauswait 'Hauptmen'
  283.  
  284. neuedateien
  285.  
  286. if test "$1" != "online"; then
  287.  
  288.   send -n 'sj'; hangup
  289.   waitfor -i -t 15 'no carrier'
  290.  
  291. fi
  292.  
  293. echo "     "
  294. echo "-----------------------------------------------------------"
  295. echo \33"#3 Maustausch erfolgreich abgeschlossen"
  296. echo \33"#4 Maustausch erfolgreich abgeschlossen"
  297. if [ $persoenliche = 1 ] ; then
  298.    echo "Sie finden im Verzeichnis $Recepath"
  299.    echo "Neue pers”nlich Bin„rdateien"
  300.    echo "  "
  301. fi
  302. if [ $neueliste = 1 ] ; then
  303.    echo "Sie finden im Verzeichnis $Recepath"
  304.    echo "eine Datei der neuen Programme in der Box $Mausname"
  305. fi
  306.  
  307. quit  # Falls CoNnect nach dem Tausch verlassen werden soll...
  308.  
  309.